unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons,UitAdoconnectPool;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 d: TConnnectionPool;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var  adopools:array of TADOConnection; i:Integer;
begin

  SetLength(adopools,6);
  for i:=1 to 2 do
      adopools[i]:=TADOConnection.Create(self);
  showmessage(IntToStr(length(adopools)));
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  d:=TConnnectionPool.Create('Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=KILLERX',2);
end;

end.
